home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 March / 64er_Magazin_91-03_1991_Markt__Technik_de_Side_B.d64 / uebers. listing (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  963b  |  30 lines
  1. 0 adresse = 49152:rem beliebig
  2. 1 rem *******************
  3. 2 rem *    written by   *
  4. 3 rem *frank barcikowski*
  5. 4 rem *  moraenenweg 33 *
  6. 5 rem *3320 salzgitter-1*
  7. 6 rem *******************
  8. 10 fori=adresse to adresse+87
  9. 20 read a:s=s+a:poke i,a
  10. 30 next
  11. 31 if s<>10407thenprint"data error!":end
  12. 35 rem dem jeweiligen berreich anpassen
  13. 36 hi=int((adresse+11)/256)
  14. 37 lo=adresse+11-int((adresse+11)/256)*256
  15. 38 poke adresse+6,hi
  16. 39 poke adresse+1,lo
  17. 40 sys adresse:poke 2,0:end
  18. 50 rem ------------------------
  19. 60 rem einschalten der erweiterung :
  20. 70 rem poke 2,0
  21. 80 rem ------------------------
  22. 90 rem ausschalten der erweiterung :
  23. 99 rem poke 2,<>0
  24. 100 rem------------------------
  25. 101 data169,11,141,6,3,169,48,141,7,3,96,16,3,76,28,167,201,58,240,3,76,243
  26. 102 data166,166,2,240,3,76,243,166,169,13,32,210,255,152,72,160,2,177,95
  27. 103 data170,200,177,95,133,98,134,99,162,144,56,32,73,188,32,223,189,162
  28. 104 data0,189,0,1,240,3,232,208,248,169,32,32,210,255,202,208,250,104,168
  29. 105 data169,32,76,243,166,48,141,7,7,96
  30.